home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / LOADDR.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-05  |  297b  |  12 lines
  1. PROCEDURE LOADDR(VAR KOD:INTEGER);
  2.     VAR
  3.      ECODE,CODE:INTEGER;
  4.     BEGIN
  5.      KOD := 0;
  6.      GETDIR(TP,CODE);
  7.      ECODE := 0;
  8.      IF CODE = 0 THEN
  9.         GETNAM(ECODE)
  10.        ELSE DFILE := '';
  11.      IF ECODE <> 0 THEN KOD := 1;    (* NO FILE NAME ENTERED WITH getnam *)
  12.     END;